fix comp--register-subr

diff --git a/src/comp.c b/src/comp.c
index 5a0013966828cc8bb2a2129a1de36ae08f6fda42..288aa6ccc41968f1a6adaffe428c9b42bb62a5b2 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -3282,7 +3282,10 @@ DEFUN ("comp--register-subr", Fcomp__register_subr, Scomp__register_subr,
   x->s.native_intspec = intspec;
   x->s.native_doc = doc;
   x->s.native_elisp = true;
-  defsubr (x);
+  XSETPVECTYPE (&x->s, PVEC_SUBR);
+  Lisp_Object tem;
+  XSETSUBR (tem, &x->s);
+  set_symbol_function (name, tem);
 
   LOADHIST_ATTACH (Fcons (Qdefun, name));